home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / abacus / p_line / Index03 / Index next >
Encoding:
Text File  |  1994-09-24  |  1.6 KB  |  137 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%DP0
  3. %OP%IRY
  4. %OP%PL0
  5. %OP%HM0
  6. %OP%FM0
  7. %OP%BM0
  8. %OP%LM4
  9. %OP%PT1
  10. %OP%PDPipeLine
  11. %OP%WC2,1254,548,1748,1,32,0,0
  12. %OP%NDArray,C4H9
  13. %OP%NDCol_No,B16
  14. %OP%NDRow_No,B17
  15. %OP%NDThe_Value,B18
  16. %OP%NDInput,B16B18
  17. %CO:A,30,72%
  18.  Entering a variable value into a slot which is also a variable
  19.  
  20.  
  21.  
  22.  The array in the block B4G9
  23.  has the PipeDream name 'Array'
  24.  
  25.  
  26.  
  27.  
  28.  Enter a   number between 1 and 6 in slot B16
  29.  Enter a   number between 1 and 6 in slot B17
  30.  Enter any number                 in slot B18
  31.  
  32. %R%Column No
  33. %R%Row    No
  34. %R%The Value
  35.  
  36.  
  37.  The values in B16 & B17 have the PipeDream names 'Col_No' & 'Row_No'
  38.  The value  in B18       has  the PipeDream name  'The_Value'
  39.  
  40.  
  41.  The function set_value(index(arrray,col,row),value)
  42.        allows you to enter a single value into an array.
  43.  
  44.  In this function the col and row are offsets from the top left of
  45.  the array so that set_value(index(Array,Col_No,Row_No),The_Value) 
  46.  enters the value from B18 into the element (Col_No, Row_No)
  47.  
  48.  Slot B33 contains
  49.  the 'magic' function
  50. %CO:B,6,42%
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65. %V%%R%1
  66. %V%%R%2
  67. %V%%R%3005
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82. %V%%R%set_value(index(Array,Col_No,Row_No),The_Value)
  83. %CO:C,6,36%
  84.  
  85.  
  86. %V%%R%3004
  87. %V%%R%3005
  88. %V%%R%3006
  89. %V%%R%3007
  90. %V%%R%3008
  91. %V%%R%3009
  92. %CO:D,6,30%
  93.  
  94.  
  95. %V%%R%4004
  96. %V%%R%4005
  97. %V%%R%4006
  98. %V%%R%4007
  99. %V%%R%4008
  100. %V%%R%4009
  101. %CO:E,6,24%
  102.  
  103.  
  104. %V%%R%5004
  105. %V%%R%5005
  106. %V%%R%5006
  107. %V%%R%5007
  108. %V%%R%5008
  109. %V%%R%5009
  110. %CO:F,6,18%
  111.  
  112.  
  113. %V%%R%6004
  114. %V%%R%6005
  115. %V%%R%6006
  116. %V%%R%6007
  117. %V%%R%6008
  118. %V%%R%6009
  119. %CO:G,6,12%
  120.  
  121.  
  122. %V%%R%7004
  123. %V%%R%7005
  124. %V%%R%7006
  125. %V%%R%7007
  126. %V%%R%7008
  127. %V%%R%7009
  128. %CO:H,6,6%
  129.  
  130.  
  131. %V%%R%8004
  132. %V%%R%8005
  133. %V%%R%8006
  134. %V%%R%8007
  135. %V%%R%8008
  136. %V%%R%8009
  137.